|
CATIA V5 Programmierung : interaktive Schaltflächen
dr am 03.08.2006 um 20:00 Uhr (0)
Hi,Ok, dann probiers mal etwa so:Code: exapp mit CreateObject oder GetObject holen Es muss ein aktives Sheet da sein Sonst musst Du es erzeugen... Dim sheet As Worksheet Set sheet = exapp.ActiveSheet exapp.CommandBars("Forms").Visible = True sheet.Buttons.Add(29.4, 6.6, 72, 72).Select Selection.OnAction = "myButtonCallback" Selection.Caption = "Hier klicken!" Aktive Selektion vom Button nehmen, damit man raufklicken kann... sheet.Range("A1").Select... und irgendwo dann:Sub myButtonCallback() MsgBox "Hall ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometricalset einfügen (.net)
dr am 01.08.2006 um 15:17 Uhr (0)
Um ein GeometricalSet einzufügen brauchst Du ein Objekt vom Type "Part".Product.AddNewComponent(...) liefert ein "Product" Objekt (egal, ob Du ein Product oder ein Part erzeugst).Der einfachste Weg, den ich gefunden habe, war halt, das Part explizit zu erzeugen (dann bekomme ich über das PartDocument leicht das Part Objekt und kann darin ein GeometricalSet erzeugen) und dann in das Product einzufügen.Aber vermutlich gibt es einen einfacheren Weg, wenn man direkt vom "Product" zum "Part" kommt - habe allerd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Item Funktion geht nicht!
dr am 04.08.2006 um 08:46 Uhr (0)
Hi,Meine spontante Vermutung:Als Rückgabewert in multiselect() verwendest Du UserSel.set multiselect = UserSel weist multiselect eine Referenz (!) auf UserSel zu.multiselect und UserSel verweisen also auf dasselbe (!) Objekt.Später rufst Du dann UserSel.Clear auf.Damit ist die Selection wieder leer.Also kannst Du beim Aufrufer auch nicht auf die Items darin zugreifen.Direkt nach UserSel.Clear sollte multiselect.item(1) etc. auch bereits nicht mehr funktionieren.Also: Entweder die Selection nicht leeren ode ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometricalset einfügen (.net)
dr am 01.08.2006 um 14:11 Uhr (0)
Dieser Code erzeugt ein neues Part, fügt es in die aktive Baugruppe ein und erzeugt ein GeometricalSet im Part.Suchst Du etwas in dieser Art?Code:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim myPartDoc As PartDocumentSet myPartDoc = CATIA.Documents.Add("Part")Dim product1 As ProductSet product1 = productDocument1.ProductDim products1 As ProductsSet products1 = product1.ProductsDim myProd As ProductSet myProd = myPartDoc.Productproducts1.AddComponent myPr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CAA: Get Children und Parents
dr am 30.10.2006 um 14:07 Uhr (0)
Moin,Nein, mit CATIProduct::GetAllChildren() bekommst Du auch die Parts, allerdings über die CATIProduct Schnittstelle.Durch rekursive Aufrufe von GetAllChildren() kannst Du Dich dann natürlich von den Subproducts aus weiter nach unten hangeln.(Sowas wurde hier bereits mehrfach mit CATScript bzw. VBA gepostet und funktioniert konzeptionell ganz ähnlich auch mit CAA...)Wenn Du dann bei einem Part oder Product die Features lesen möchtest, kannst Du zum Beispiel einfach ein CATISpecObject Interface zu dem Par ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Item Funktion geht nicht!
dr am 04.08.2006 um 08:55 Uhr (0)
Hi,Nee, da wird VB wohl meckern.Mit Kopieren meine ich grob sowas:Code: dim result(100) Oder sonstwas... dim i as integer for i = 1 to usersel.count set result(i) = usersel.item(i) set result(i + 1) = nothing Kann später als "Ende" Kennzeichen genutzt werden... nextEin bissel besser müsste das wohl noch durchdacht werden, aber irgendsowas halt: Ein Kopieren aller Items der Selection bevor sie geleert wird...--------------------Danny ReinholdReinhold Software Services
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : interaktive Schaltflächen
dr am 04.08.2006 um 10:03 Uhr (0)
Hi nochmal,Ich habe das Problem mit dem Button hinbekommen (Hartnäckigkeit kann sich auszahlen ):Schritt 1---------Füge Deinem Projekt folgende Verweise hinzu:- Microsoft Excel 11.0 Object Library- Microsoft Office 11.0 Object Library- Microsoft Visual Basic for Applications Extensibility ...(Falls Du eine andere Office Version hast, nimm die entsprechenden Verweise...)Schritt 2---------Die Sicherheit in Excel muss heruntergeschraubt werden (das muss dann leider jeder Anwender einmal machen):Dazu in Excel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Überwachen einer Dateigröße
dr am 17.10.2006 um 17:04 Uhr (0)
Die Dateilänge einer Datei kannst Du z.B. so bekommen:Code:Sub CATMain()Dim s As LongDim f As fileSet f = CATIA.FileSystem.GetFile("c:oot.ini")s = f.sizeMsgBox "size: " & sEnd SubSolltest natürlich den Namen Deiner Part-Datei anstelle von c:oot.init verwenden Achte darauf, dass Du in Deiner Schleife zwischen einzelnen Aufrufen etwas wartest (sonst verbraucht das Makro unnötig viel CPU-Zeit).Achte auch darauf, dass Du einen Timeout einbaust, dass Dein Makro also nur anschlägt, wenn eine Datei für mindeste ...
|
| In das Form CATIA V5 Programmierung wechseln |
